{1}{1}clear 
   1 goto 10
   5 box 0,-40,150,8,2;return 
  10 clear ;NT=1;BC=123;FC=10;box -7,-2,134,64,1;box 61,0,6,4,1;box 65,10,3,24,1;box 67,22,6,10,1
  20 H=14;for G=126to 122step -2;box -7,-20,G,H,3;H=H-2;next G;CX=-62;CY=-20;print "ARCADE SL0T MACHINE",
  30 for E=-50to 34step 42;G=42;H=14;for F=0to 2;box E,15,G,H,3;G=G-2;H=H-2;next F;next E;M=0
  40 N=(KN(1)+128)div 25;if N<1N=1
  50 CX=-70;CY=40;print "BET?",#3,N;if TR(1)=0goto 40
  60 gosub 100;goto 40
 100 for Y=27to 8step -1;box 67,Y,9,1,2;box 67,Y-5,6,10,1;next Y;for Y=8to 27;box 67,Y-4,6,10,1;box 65,Y,3,1,1;box 69,Y-10,4,2,2;next Y
 110 NT=0;for C=0to 4;for B=0to 2;D=rnd (5);if C=4@(B)=D
 120 CY=15;if B=0CX=-65
 130 if B=1CX=-23
 140 if B=2CX=19
 150 for Z=16to 22;&(Z)=79;next Z;if D=1print "LEM0N ",
 160 if D=2print "CHERRY",
 170 if D=3print "0RANGE",
 180 if D=4print " BELL ",
 190 if D=5print " BAR  ",
 200 for Z=16to 22;&(Z)=0;next Z;next B;next C;NT=1;L=M
 210 if (@(0)=1)+(@(0)>2)goto 700
 212 if @(0)=2goto 220
 215 if @(0)=@(1)gosub 600;goto 240
 217 if @(0)#@(1)goto 700
 220 if @(0)=@(1)if @(0)=@(2)gosub 500;goto 240
 230 if @(0)=@(1)gosub 600
 240 gosub 5;if M<1M=M+N;goto 260
 250 M=M-N
 260 CX=-70;CY=-40;print "Y0U W0N$",#3,M-L,;gosub 710
 265 for V=1to N;&(19)=37;&(17)=31;&(21)=47;&(22)=31;FC=83;for U=30to 20step -1;&(16)=U;next U
 270 FC=8;for U=20to 30;&(16)=U;next U;next V;for Z=16to 22;&(Z)=0;next Z;return 
 500 if @(0)>3M=M+(Nmul ((@(0)mul 4)-2);return 
 510 M=M+(Nmul ((@(0)mul 2)+4));return 
 600 if @(0)=5goto 700
 610 if @(0)=2M=M+(5mul N);return 
 620 if @(2)#5goto 700
 630 if @(0)=3M=M+(8mul N);return 
 640 M=M+(12mul N);return 
 700 M=M-N;gosub 5;CX=-70;CY=-40;print "S0RRY!",
 710 CX=5;print "T0TAL $",#3,M,;return 

clear 
D0N'T ST0P THE REC0RDER --UNTIL Y0U HAVE SEEN ALL   INSTRUCTI0NS!!
>
clear 
ARCADE SLOT MACHINE

KNOB #1 LETS YOU BET FROM $1 TO $10.PULL THE TRIG-
GER TO PLACE YOUR BET.
THERE ARE LOTS OF WINNING COMBINATIONS.A CHERRY IN THE LEFT WINDOW ALWAYS IS
A WINNER;BUT A LEMON IN THE LEFT WINDOW NEVER WINS
PULL TRIGGER TO START PLAY.clear 
:return ;run 
>